home *** CD-ROM | disk | FTP | other *** search
Wrap
XSetup plugin | 2001-02-20 | 2.5 KB | 98 lines
"FILE"="Xteq Systems X-Setup Plugin 6.0" "TYPE"="5" "COUNT"="2" "UIPATH"="Internet\Internet Explorer\Clear" "NAME"="Clear Cookies" "VERSION"="1.04" "-WARNING"="1" "LANGUAGE"="VBScript" "TEXT 1"="Clear IE Cookies" "TEXT 2"="Clear IE Cookies (total erase!)" "DESCRIPTION 1"="This plug-in will totally erase any cookies in your Internet Explorer." "DESCRIPTION 2"="If you select to open the second option, every file found (except INDEX.DAT) will be filled with garbage before deleting so even an undelete does not show what was inside the files." "DESCRIPTION 3"="IMPORTANT! Close Internet Explorer before using any of these functions!" "AUTHOR"="Xteq Systems" "CONTACTURL"="http://www.xteq.com" "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved" "COMMENT 1"=" " "COMMENT 2"="Thanks to CptSiskoX for the help." sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cookies" Sub Plugin_Initialize End Sub Sub Plugin_CheckData(ElementIndex) End Sub Sub Plugin_Apply(ElementIndex,ElementSubIndex) if ElementIndex=1 then Call DoWork(false) else Call DoWork(true) end if End Sub Sub DoWork(EraseTotally) s=RegReadValue(sP) sBasePath=s if folderexists(sBasePath) then 'okay, now look for any remaing files... Call KillDir(sBasePath,EraseTotally,false) 'done! msginformation "IE's Cookies cleared!" else msgerror "Unable to locate Cookie folder - nothing done!" end if end Sub Sub KillDir(DirName,EraseTotally,KillDirAlso) iC=FileEnum(DirName & "\*.*") for i=1 to iC sFile=FileEnumElement(i) 'index.dat can not be earased, always locked for writing... grr.. if lcase(right(sFile,9))<>"index.dat" then if EraseTotally then lC=TxtOpen(sFile) 'replace contents of file for l=1 to lC Call TxtSetLine(l,"-") next 'desktop.ini is special case.. if right(sFile,11)="desktop.ini" then Call FileSetAttribute(sFile,"R-") Call FileSetAttribute(sFile,"H-") Call FileSetAttribute(sFile,"S-") end if Call TxtSave() end if 'now kill the file FileDelete(sFile) end if next if KillDirAlso=true then FolderDelete(DirName) end if End Sub Sub Plugin_Terminate End Sub